home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf
/
DTdbS
/
tdbs5
(
.txt
)
< prev
Wrap
AmigaBASIC Source Code
|
1989-07-02
|
24KB
|
535 lines
SCREEN 2,640,200,4,2
WINDOW 2,,,0,2
RANDOMIZE TIMER
DEFLNG a-z
DECLARE FUNCTION opendiskfont&() LIBRARY
LIBRARY "diskfont.library"
LIBRARY "graphics.library"
altfont=PEEKL(WINDOW(8)+52)
neufont$="amber.font"+CHR$(0)
hoehe=19:pref=96
text(0)=SADD(neufont$)
text(1)=(2^16)*hoehe+pref
font=opendiskfont&(VARPTR(text(0)))
IF font<>0 THEN CALL setfont&(WINDOW(8),font)
FOR i=1 TO 5
MENU i,0,1,""
NEXT
MENU ON
FOR i=0 TO 27
PALETTE i,0,0,0
NEXT
OPEN "I",#1,"Held"
WHILE NOT EOF(1)
INPUT #1,spieler$,geld,punkte,mut,waffe$
INPUT #1,kleidung$,geschick,parade,attacke
INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp
WEND
CLOSE #1
start:
CALL freesprite (0)
COLOR 2
1 CLS:LOCATE 3,3
schr$="Du befindest Dich auf einer Strasse in der Stadt. Viele ":sp(schr$):LOCATE 5,3
schr$="Menschen laufen hier umher und in der Ferne hoerst Du einige":sp(schr$):LOCATE 7,3
schr$="Marktfrauen schreien, die ihre Ware verkaufen wollen. von ":sp(schr$):LOCATE 9,3
schr$="hier aus kannst Du nach Westen, Osten und nach Sueden.":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Du kannst nach Sueden < F1 >":sp(schr$):LOCATE 14,3
schr$="Willst Du vielleicht nach Osten gehen? < F2 >":sp(schr$):LOCATE 16,3
schr$="Oder willst Du nach Westen < F3 >":sp(schr$):COLOR 2
PALETTE 5,0.93,0.2,0
PALETTE 6,0.4,0.6,1
PALETTE 7,0.8,0.4,0.33
PALETTE 2,1,0.87,0.73
PALETTE 3,1,1,0.13
WHILE 1
getkey x
ON x GOTO 7,3,2
IF x=11 THEN GOSUB dokument:GOTO 1
WEND
2 CLS:LOCATE 3,3
schr$="Du bist auf einer Strasse aus Kopfsteinpflaster. Es ist hier":sp(schr$):LOCATE 5,3
schr$="schon ruhiger, da Du die Hauptstrasse verlassen hast. Vorbei":sp(schr$):LOCATE 7,3
schr$="an einigen alten Haeusern kommst Du wieder auf eine Art Kreu-":sp(schr$):LOCATE 9,3
schr$="zung. Von hier kannst Du nach Osten, Westen und nach Sueden":sp(schr$):LOCATE 12,3:COLOR 3
schr$="Gehst Du nach Sueden druecke < F1 >":sp(schr$):LOCATE 14,3
schr$="Du kannst noch nach Osten < F2 >":sp(schr$):LOCATE 16,3
schr$="Nach Westen kommst Du mit < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 6,1,4
IF x=11 THEN GOSUB dokument:GOTO 2
WEND
3 CLS:LOCATE 3,3
schr$="Du bist auf einem kleinen Weg, der sich nach Sueden biegt. An":sp(schr$):LOCATE 5,3
schr$="der oestlichen Ecke des Weges befindet sich ein kleiner Stand.":sp(schr$):LOCATE 7,3
schr$="Die Frau schreit ihre neuste Wahre heraus. Als Du naeher an":sp(schr$):LOCATE 9,3
schr$="den Stand herantritts bietet die Frau Dir ihre Ware an. Fish ":sp(schr$):LOCATE 11,3
schr$="gibt es schon fuehr 2 Silberstuecke, Obst fuehr 1 Silberstueck.":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Willst Du das Angebot annehmen? < F1 >":sp(schr$):LOCATE 16,3
schr$="Du kannst auch nach Sueden < F2 >":sp(schr$):LOCATE 18,3
schr$="Willst Du vielleicht nach Westen? < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
IF x=1 THEN GOSUB 100
IF x=2 THEN 8
IF x=3 THEN 1
IF x=11 THEN GOSUB dokument:GOTO 3
WEND
4 CLS:LOCATE 3,3
schr$="Du stehst auf einem Weg, der nach Sueden und nach Westen hin":sp(schr$):LOCATE 5,3
schr$="verlaeuft. Ansonsten gibt es hier keine besonderen Gegenstaende":sp(schr$):LOCATE 8,3:COLOR 3
schr$="Willst Du nach Sueden druecke < F1 >":sp(schr$):LOCATE 10,3
schr$="Nach Osten geht es mit < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 5,2
IF x=11 THEN GOSUB dokument:GOTO 4
WEND
5 CLS:LOCATE 3,3
schr$="Du bist auf einem Weg, der in drei Richtungen weiterverlaeuft.":sp(schr$):LOCATE 5,3
schr$="Es fuehrt ein Weg nach Sueden, nach Norden und nach Osten.":sp(schr$):LOCATE 7,3
schr$="In suedlicher Richtung kannst Du den Schein einer Lampe wahr-":sp(schr$):LOCATE 9,3
schr$="nehmen.":sp(schr$):COLOR 3:LOCATE 14,3
schr$="Gehst Du auf den Schein der Lampe zu?< F1 >":sp(schr$):LOCATE 16,3
schr$="Willst Du nach Norden druecke < F2 >":sp(schr$):LOCATE 18,3
schr$="Du kannst auch noch nach Osten < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 16,4,6
IF x=11 THEN GOSUB dokument:GOTO 5
WEND
6 IF gh=1 THEN 105
CLS:LOCATE 3,3
schr$="Auf dem Weg, auf dem Du Dich befindest steht noch ein anderer":sp(schr$):LOCATE 5,3
schr$="Mann. Er ist ein dunklen langen Umhang gehuellt und sagt zu Dir:":sp(schr$):LOCATE 7,3:COLOR 6
schr$="Hey, Du hast einen schoenen Geldbeutel! Los gib ihn mir oder ":sp(schr$):LOCATE 9,3
schr$="ich mach Dich kalt!":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Du gibst ihn Deinen Geldbeutel < F1 >":sp(schr$):LOCATE 16,3
schr$="Du greifst ihn an < F2 >":sp(schr$):LOCATE 18,3
schr$="Du kannst auch versuchen zu fliehen < F3 >":sp(schr$):COLOR 2
gh=1
WHILE 1
getkey x
ON x GOTO 102,103,104
WEND
7 CLS:LOCATE 3,3
schr$="Du befindest Dich immer noch auf einer Strasse, wahrscheinlich":sp(schr$):LOCATE 5,3
schr$="eine Art Hauptstrasse, denn hier laufen immer mehr Menschen ":sp(schr$):LOCATE 7,3
schr$="wild durcheinander und die meisten gehen nach Sueden, denn dort":sp(schr$):LOCATE 9,3
schr$="ist heute Markttag!":sp(schr$):LOCATE 11,3
schr$="Du kannst von hier aus nach Norden, Sueden oder nach Osten!":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Willst Du nach Sueden < F1 >":sp(schr$):LOCATE 16,3
schr$="Du kannst auch noch nach Norden < F2 >":sp(schr$):LOCATE 18,3
schr$="Wenn Du nach Osten willst druecke < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 10,1,8
IF x=11 THEN GOSUB dokument:GOTO 7
WEND
8 CLS:LOCATE 3,3
IF jkl=1 THEN 106
schr$="Als Du diese Strasse ein Stueck hinuntergegangen bist, wird":sp(schr$):LOCATE 5,3
schr$="an einem Haus eine Tuer geoeffnet und ein alter Mann tritt":sp(schr$):LOCATE 7,3
schr$="heraus und spricht Dich an. Er meint er weiss wer Deinen ":sp(schr$):LOCATE 9,3
schr$="Freund getoetet hat. Er bittet Dich in sein Haus.":sp(schr$):COLOR 3:LOCATE 12,3
schr$="Du nimmst dankend an und folgst dem Mann < F1 >":sp(schr$):LOCATE 14,3
schr$="Du lehnst lieber ab und gehst die Strasse weiter entlang < F2 >":sp(schr$):COLOR 2:jkl=1
WHILE 1
getkey x
ON x GOTO 106,107
WEND
9 CLS:LOCATE 3,3
schr$="Du befindest Dich auf einer Strasse, die sich in drei":sp(schr$):LOCATE 5,3
schr$="Richtungen teilt. Von hier aus kannst Du erstens nach Norden":sp(schr$):LOCATE 7,3
schr$="dann noch nach Sueden und nach Westen. Im Westen ist es jetzt":sp(schr$):LOCATE 9,3
schr$="am lautesten, weil dort wohl auch der Marktplatz ist.":sp(schr$):COLOR 3:LOCATE 12,3
schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 14,3
schr$="Willst Du vielleicht nach Sueden < F2 >":sp(schr$):LOCATE 16,3
schr$="Du kannst auch noch nach Westen < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 8,14,10
IF x=11 THEN GOSUB dokument:GOTO 9
WEND
10 CLS:LOCATE 3,3
schr$="Du stehst auf dem Marktpatz dieser Stadt. Hier herrscht":sp(schr$):LOCATE 5,3
schr$="eine Menge betrieb, denn die Leute hier versuchen den besten":sp(schr$):LOCATE 7,3
schr$="Angeboten nachzukommen. Von hier aus fuehren drei Wege fort:":sp(schr$):LOCATE 9,3
schr$="Es geht nach Osten, Sueden und nach Norden. Du kommst an ":sp(schr$):LOCATE 11,3
schr$="Staenden vorbei, wo die Marktschreier ihre Waren verkuenden.":sp(schr$):LOCATE 14,3:COLOR 3
schr$="Willst Du nach Norden gehen < F1 >":sp(schr$):LOCATE 16,3
schr$="Folgst Du lieber dem Weg nach Sueden? < F2 >":sp(schr$):LOCATE 18,3
schr$="Du kannst auch nach Osten < F3 >":sp(schr$):LOCATE 20,3
schr$="Willst Du nicht ein paar Waren kaufen? < F4 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 7,13,9,108
IF x=11 THEN GOSUB dokument:GOTO 10
WEND
11 CLS:LOCATE 3,3
schr$="Du stehst vor einem alten, aus Fachwerk gebauten, Wirtshaus.":sp(schr$):LOCATE 5,3
schr$="Die Fenster des Hauses sind beleuchtet und von innen vernimmst":sp(schr$):LOCATE 7,3
schr$="Du lachenden und singende Stimmen, die zeigen, dass das Haus":sp(schr$):LOCATE 9,3
schr$="offen ist. Rechts neben der Eingangstuer haengt ein altes,":sp(schr$):LOCATE 11,3
schr$="Schmiedeisernes Schild mit der Aufschrift `Wirtshaus zum":sp(schr$):LOCATE 13,3
schr$="Schwarzen Keiler'":sp(schr$):LOCATE 16,3:COLOR 3
schr$="Willst Du das Wirtshaus betreten? < F1 >":sp(schr$):LOCATE 18,3
schr$="Du kannst den Weg auch wieder zurueckgehen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 110,6
IF x=11 THEN GOSUB dokument:GOTO 11
WEND
12 CLS:LOCATE 3,3
schr$="Du stehst auf einer alten Kopfsteinpflasterstrasse, die in":sp(schr$):LOCATE 5,3
schr$="west- oestlicher Richtung verlaeuft.":sp(schr$):COLOR 3:LOCATE 8,3
schr$="Du kannst nach Osten < F1 >":sp(schr$):LOCATE 10,3
schr$="Du kannst auch nach Westen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 13,17
IF x=11 THEN GOSUB dokument:GOTO 12
WEND
13 CLS:LOCATE 3,3
schr$="Du befindest Dich auf einer normalen Wegkreuzung in der":sp(schr$):LOCATE 5,3
schr$="Stadt. Auf beiden Seiten der Strasse stehen Haeuser und":sp(schr$):LOCATE 7,3
schr$="einige Kinder spielen auf der Strasse. Von hier aus kannst":sp(schr$):LOCATE 9,3
schr$="Du nach Norden, Westen und nach Osten":sp(schr$):COLOR 3:LOCATE 12,3
schr$="Willst Du nach Norden? < F1 >":sp(schr$):LOCATE 14,3
schr$="Es geht auch nach Westen < F2 >":sp(schr$):LOCATE 16,3
schr$="Du kannst auch nach Osten < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 10,12,14
IF x=11 THEN GOSUB dokument:GOTO 13
WEND
14 CLS:LOCATE 3,3
schr$="Du folgst dem Weg, bis Du schliesslich nach einer kurzen":sp(schr$):LOCATE 5,3
schr$="Weile in zwei Richtungen kannst.":sp(schr$):lcate 8,3:COLOR 3
schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 10,3
schr$="Du kannst nach Westen < F2 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 9,13
IF x=11 THEN GOSUB dokument:GOTO 14
WEND
16 CLS:LOCATE 3,3
schr$="Du folgst dem Weg noch eine Weile bis er schliesslich in":sp(schr$):LOCATE 5,3
schr$="einer Sackgasse endet. Tja auch nach noch so langem suchen":sp(schr$):LOCATE 7,3
schr$="entdeckst Du keine andere Tuer mehr. Du kannst nur noch":sp(schr$):LOCATE 9,3
schr$="wieder zurueck!":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 5
17 IF zu=1 THEN 18
CLS:LOCATE 3,3
schr$="Hier endet Dein Weg vor einem grossen, alten, rostigen":sp(schr$):LOCATE 5,3
schr$="Eisentor. Es gibt keine Moeglichkeit hier hindurch zu":sp(schr$):LOCATE 7,3
schr$="kommen. Ich glaube Du musst wieder zurueck!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 12
18 CLS:LOCATE 3,3
schr$="Du kommst in einen Garten, wo ein alter Mann mit langem":sp(schr$):LOCATE 5,3
schr$="weissen Bart auf Dich wartet. Als Du naeher an ihn heran-":sp(schr$):LOCATE 7,3
schr$="trittst erkennst Du in ihm den Grossmeister der Magiegilde":sp(schr$):LOCATE 9,3
schr$="in die Du auch eintreten willst. Er spricht in leisen, lang-":sp(schr$):LOCATE 11,3
schr$="samen Worten zu Dir:":sp(schr$):LOCATE 13,3:COLOR 7
schr$="Du hast diese Stadt von Radaz befreit, damit hast Du deine ":sp(schr$):LOCATE 14,3
schr$="erste Aufgabe bestanden. Nun liegt es ganz an Dir, ob Du es":sp(schr$):LOCATE 15,3
schr$="nocheinmal versuchen willst, in unsere Magiergilde aufgenom-":sp(schr$):LOCATE 16,3
schr$="men zu werden. Wenn ja, dann bringe mir":sp(schr$):LOCATE 19,20:COLOR 6
POKE WINDOW (8)+56,4:schr$="Die Fuenf Magischen Dolche":sp(schr$):COLOR 2
SLEEP:SLEEP:SLEEP:SLEEP:CALL setdrmd&(WINDOW(8),0)
CLS:PALETTE 10,1,1,0.13:COLOR 10:LOCATE 3,3
schr$="Das war der erste Teil der Fantasy Triologie. In Arbeit ist":sp(schr$):LOCATE 5,3
schr$="zur Zeit noch der Zweite Teil, sprich `Die Fuenf Magischen":sp(schr$):LOCATE 7,3
schr$="Dolche', die Sie dann auch ueber `Franz PD Software' beziehen":sp(schr$):LOCATE 9,3
schr$="koennen.":sp(schr$):COLOR 6:LOCATE 12,3
schr$="Ueber weitere Anregungen und Vorschlaege freue ich mich!":sp(schr$):LOCATE 14,3
schr$="Meine Adresse lautet:":sp(schr$):POKE WINDOW(8)+56,6:PALETTE 11,0.13,0.67,0:COLOR 11:LOCATE 16,25
sp("Martin Jochimczyk"):LOCATE 17,25:sp("Am Sande 12"):LOCATE 18,25:POKE WINDOW(8)+56,7:sp("D-2723 Scheessel")
COLOR 6
SLEEP:SLEEP:SLEEP
FOR i=0 TO 130 STEP 1
SCROLL (0,80)-(640,200),0,1
NEXT
POKE WINDOW(8)+56,4
LOCATE 14,20:PRINT "Auf Wiedersehen !":COLOR 10
LOCATE 18,7:PRINT "Ihr Held wird noch auf Diskette gespeichert!"
OPEN "Held" FOR OUTPUT AS#1
WRITE #1,spieler$,geld,punkte,mut,waffe$
WRITE #1,kleidung$,geschick,parade,attacke
WRITE #1,charisma,intelligenz,kraft,lebensenergie,tp
CLOSE #1
SYSTEM
100 CLS:LOCATE 3,3
IF geld<=0 THEN 101
schr$="Du kaufst Dir also ein paar Aepfel, ein bischen Brot und ein":sp(schr$):LOCATE 5,3
schr$="Schinke. Du isst die Sachen unverzueglich auf und fuehlst Dich":sp(schr$):LOCATE 7,3
schr$="gleich viel besser.":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:lebensenergie=lebensenergie+3
geld=geld-5:RETURN
101 CLS:LOCATE 3,1:COLOR 7
schr$="Die Marktfrau gibt Dir die eingepackte Ware und als Du bezahlen":sp(schr$):LOCATE 5,1
schr$="willst merkst Du das Du gar kein Geld mehr hast. Na so eine ":sp(schr$):LOCATE 7,1
schr$="Scheisse! Unter wilden fluchen, und unter einem Hagel von alten":sp(schr$):LOCATE 9,1
schr$="Eiern jagt Sie Dich weg von ihrem Stand":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:punkte=punkte-2:charisma=charisma-1
IF charisma<=0 THEN charisma=0:COLOR 2:GOTO 3
102 CLS:LOCATE 3,3
schr$="Du machst Deinen Geldbeutel von der Hose ab und schmeisst den":sp(schr$):LOCATE 5,3
schr$="den Geldbeutel zu dem Mann herueber. Dieser hebt ihn auf und ":sp(schr$):LOCATE 7,3
schr$="verschwindet in der Dunkelheit so schnell wie er gekommen ist":sp(schr$)
geld=0:SLEEP:SLEEP:SLEEP:GOTO 105
103 CLS:LOCATE 3,3
schr$="Wildentschlossen greifst Du zu Deiner Waffe und springst auf":sp(schr$):LOCATE 5,3
schr$="ihn los. Schnell jedoch zieht es ein langes Bastardmesser und":sp(schr$):LOCATE 7,3
schr$="weicht Dir aus. Es kommt zum Kampf auf Leben und Tot!":sp(schr$)
monstertrefferpunkte=3:monstername$="Strassenbandit":monsterattacke=12:monsterparade=10:monsterpunkte=15
gh=1:i=1:GOTO kampf
104 CLS:LOCATE 3,3
schr$="Schnell drehst Du Dich um und nimmst Deine Beine unter die ":sp(schr$):LOCATE 5,3
schr$="Arme, doch es hilft alles nichts. Die dukle Gestalt hat ein":sp(schr$):LOCATE 7,3
schr$="langes Bastardmesser gezogen und auf Dich geschmissen. Unter":sp(schr$):LOCATE 9,3
schr$="einem letzten Aufschrei sinkst Du leblos zu Boden!":sp(schr$)
SLEEP:SLEEP:SLEEP:GOTO schluss
105 CLS:LOCATE 3,3
schr$="Hier stehst Du nun in der dunklen Gasse. Von hier aus kannst":sp(schr$):LOCATE 5,3
schr$="Du nach Norden, Sueden und nach Westen gehen.":sp(schr$):gh=1:COLOR 3:LOCATE 10,3
schr$="Willst Du nach Norden < F1 >":sp(schr$):LOCATE 12,3
schr$="Du kannst auch noch nach Sueden < F2 >":sp(schr$):LOCATE 14,3
schr$="Oder fuehr Dich dein Weg nach Westen < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 2,11,5
WEND
106 CLS:LOCATE 3,1
schr$="Du betrittst ein altes, kleines Haus mit nur einem Raum. Als":sp(schr$):LOCATE 5,1
schr$="Du mit Deiner Waffe die Wohnstaette betrittst, springen zwei":sp(schr$):LOCATE 7,1
schr$="Kinder aufgeregt hinter den Kamin. Du setzt Dich mit dem alten":sp(schr$):LOCATE 9,1
schr$="Mann an einen Tisch und er faeng an zu erzaehlen:":sp(schr$):LOCATE 11,1:COLOR 5
schr$="`Frueher war die Stadt einmal eine friedliche Stadt. Heute gibt":sp(schr$):LOCATE 13,1
schr$="es hier nur noch Gewalt und Ueberfaelle. Wer sich Radaz und ":sp(schr$):LOCATE 15,1
schr$="seiner Bande nicht fuegt wird umgebracht. Es ist schrecklich.":sp(schr$):LOCATE 17,1
schr$="Auch deinen Freund haben Sie ermordet, weil er nicht mit in":sp(schr$):LOCATE 19,1
schr$="Radaz Bande wollte. Er war so ein guter Kerl. Raeche ihn!!":sp(schr$):LOCATE 21,1:COLOR 2
schr$="Dann bringt er dich wieder nach draussen!":sp(schr$)
SLEEP:SLEEP:SLEEP:GOTO 107
107 CLS:LOCATE 3,3
schr$="Du bist auf einer alten Strasse. Neben Dir fliesst Unrat in":sp(schr$):LOCATE 5,3
schr$="einem kleinen bach die Strasse hinunter. Als Du an einigen ":sp(schr$):LOCATE 7,3
schr$="Haeusern vorbeigehst werden hastig die Tueren und Fenster":sp(schr$):LOCATE 9,3
schr$="geschlossen.":sp(schr$):COLOR 3:LOCATE 12,3
schr$="Mit < F1 > gehst Du nach Norden":sp(schr$):LOCATE 14,3
schr$="Du kannst auch nach Sueden mit < F2 >":sp(schr$):LOCATE 16,3
schr$="Willst Du nicht nach Westen? < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 3,9,7
IF x=11 THEN GOSUB dokument:GOTO 107
WEND
108 IF geld<=0 THEN 109
CLS:LOCATE 3,3
schr$="Du gehst an einen Stand und kaufst Dir ein bischen Brot und":sp(schr$):LOCATE 5,3
schr$="etwas zu trinken. Es ist ein guter Schoppen Wein mit einer":sp(schr$):LOCATE 7,3
schr$="milden Bluete und herzhaften Geschmack. Das Brot ist ein ":sp(schr$):LOCATE 9,3
schr$="wenig zu trocken, schmeckt aber trotzdem relativ gut.":sp(schr$)
SLEEP:SLEEP:SLEEP:SLEEP:geld=geld-2:lebensenergie=lebensenergie+3:punkte=punkte+1:GOTO 10
109 CLS:LOCATE 3,3
schr$="Du hast ja gar kein Geld mehr um Dir solche Koestlichkeiten":sp(schr$):LOCATE 5,3
schr$="zu kaufen. Das ist aber nicht nett dem Verkauefer gegenueber,":sp(schr$):LOCATE 7,3
schr$="der sich solche Muehe beim Einpacken gegeben hat. Du entschul-":sp(schr$):LOCATE 9,3
schr$="digst Dich also ganz lieb und der Verkaeufer drueck noch mal":sp(schr$):LOCATE 11,3
schr$="ein Auge zu!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 10
110 IF kampf=1 THEN 117
CLS:LOCATE 3,3
schr$="Gesagt getan. Du oeffnest die Tuer und trittst in einen ca.":sp(schr$):LOCATE 4,3
schr$="8x12 Meter grossen Raum. An der Westwand befindet sich der ":sp(schr$):LOCATE 5,3
schr$="Tresen des Raumes. An der suedlichen Wand fuehrt ein Treppe":sp(schr$):LOCATE 6,3
schr$="in den zweiten Stock. In der Mitte des Raumes stehen einige":sp(schr$):LOCATE 7,3
schr$="Tische, an denen Menschen sitzen und ihr Meet trinken. An der":sp(schr$):LOCATE 8,3
schr$="Ostwand steht noch ein runder Tisch, wo ein Mann sitzt, der":sp(schr$):LOCATE 9,3
schr$="nur Radaz sein kann. Du hast noch nie so einen wiederlichen":sp(schr$):LOCATE 10,3
schr$="Menschen in deinem Leben gesehen!":sp(schr$):LOCATE 13,3:COLOR 3
schr$="Du kannst das Wirtshaus wieder verlassen < F1 >":sp(schr$):LOCATE 14,3
schr$="Willst Du Radaz angreifen? < F2 >":sp(schr$):LOCATE 15,3
schr$="Du setzt Dich an einen Tisch und bestellst etwas < F3 >":sp(schr$):LOCATE 16,3
schr$="Du nimmst Dir ein Zimmer < F4 >":sp(schr$):LOCATE 17,3
schr$="Ein Drink an der Theke waere nicht schlecht < F5 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 11,111,112,113,114
IF x=11 THEN GOSUB dokument:GOTO 110
WEND
111 CLS:LOCATE 3,3
IF rgh=1 THEN 115
schr$="Du greifst Deine Waffe und springst mit einem Kriegsschrei":sp(schr$):LOCATE 5,3
schr$="auf Radaz los, doch dieser ist ein geuebter Kaempfer. Er":sp(schr$):LOCATE 7,3
schr$="weicht Deiner Attacke aus und es kommt zu einem Kampf!":sp(schr$)
SLEEP:SLEEP:SLEEP:SLEEP:i=2:rgh=1:monstername$="Radaz":monsterattacke=15:monsterparade=14:monsterlebensenergie=20
monstertrefferpunkte=4:monsterpunkte=40:GOTO kampf
112 CLS:LOCATE 3,3
geld=geld-1:IF geld<=0 THEN schr$="Du hast kein Geld mehr!":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 110
schr$="Du sitzt an einem runden Tisch in der westlichen Ecke des ":sp(schr$):LOCATE 5,3
schr$="und schluerfst dein Krug mit Meet. Zwei Tische von Dir ist":sp(schr$):LOCATE 7,3
schr$="Radaz entfernt und er pruegelt gerade einen seiner Banden-":sp(schr$):LOCATE 9,3
schr$="mitglieder, da dieser einen Mitbuerger verschont hat.":sp(schr$):COLOR 3:LOCATE 12,3
schr$="Willst Du das Wirtshaus wieder verlassen? < F1 >":sp(schr$):LOCATE 14,3
schr$="Du kannst Radaz angreifen < F2 >":sp(schr$):LOCATE 16,3
schr$="Du nimmst Dir ein Zimmer < F3 >":sp(schr$):COLOR 2
WHILE 1
getkey x
ON x GOTO 11,111,113
IF x=11 THEN GOSUB dokument:GOTO 112
WEND
114 CLS:LOCATE 3,3
schr$="Da dich der Wirt symphatisch findet und Du auch gleich in":sp(schr$):LOCATE 5,3
schr$="ein Gespraech mit ihm kommst gibt er Dir eine Bloody Harry":sp(schr$):LOCATE 7,3
schr$="aus. Ihr labert so ueber dies und das, und ueber Gott und die":sp(schr$):LOCATE 9,3
schr$="Welt, aber natuerlich nicht ueber Radaz. Als Du deinen Drink":sp(schr$):LOCATE 11,3
schr$="ausgetrunken hast, bedankst Du Dich und verlaesst das Lokal ":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 11
113 CLS:LOCATE 3,3
geld=geld-3:IF geld<=0 THEN sp("Du hast kein Geld mehr!"):SLEEP:SLEEP:SLEEP:GOTO 110
schr$="Du gehst auf Dein kleines Zimmer, es ist nicht sehr nobel":sp(schr$):LOCATE 5,3
schr$="eingerichtet, aber es reicht und legst Dich auf das kleine":sp(schr$):LOCATE 7,3
schr$="Bett. Da es noch frueh am Abend ist und Du als Partyloewe es":sp(schr$):LOCATE 9,3
schr$="gewohnt bist erst spaet ins Bett zu gehen, kannst Du nicht":sp(schr$):LOCATE 11,3
schr$="einschlafen und gehst wieder hinunter!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 110
115 CLS:LOCATE 3,3
schr$="Wie oft willst Du ihn denn noch angreifen? Er ist tot und":sp(schr$):LOCATE 5,3
schr$="wird es auch bleiben!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 110
116 CLS:LOCATE 3,3:COLOR 6
schr$="Du hast ihn getoetet! Langsam zuegelt sich Dein Hass wieder":sp(schr$):LOCATE 5,3
schr$="gegen ihn und Du denkst wieder an Deinen toten Freund! Was":sp(schr$):LOCATE 7,3
schr$="kann Dir jetzt noch passieren? Sollte jetzt alles vorbei sein?":sp(schr$):LOCATE 9,3
schr$="Gewiss nicht, denn ploetzlich hoerst Du wie Radaz Anhaenger ":sp(schr$):LOCATE 11,3
schr$="ihre Waffe zuecken. Du ziehst es doch lieber vor jetzt zu":sp(schr$):LOCATE 13,3
schr$="fluechten. Schnell verlaesst Du dass Wirtshaus wieder !":sp(schr$):SLEEP:kampf=1:COLOR 2:zu=1:SLEEP:SLEEP:GOTO 11
117 CLS:LOCATE 3,3
schr$="Das willst Du doch nicht wirklich tun oder? Willst Du Dein":sp(schr$):LOCATE 5,3
schr$="Leben einfach so vor die Hunde werfen? Ich glaube das wuerdest":sp(schr$):LOCATE 7,3
schr$="Du nicht ueberleben!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 11
260 COLOR 2
IF i=1 THEN 105
IF i=2 THEN 116
REM ********************
REM ** unterprogramme **
REM ********************
SUB sp(schr$) STATIC
CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
END SUB
SUB getkey (keynumber) STATIC
in$=""
WHILE in$=""
SLEEP
in$=INKEY$
WEND
keynumber=ASC(in$)-128
IF keynumber<1 OR keynumer>10 THEN keynumber=0
END SUB
dokument:
CLS:LOCATE 3,3
PRINT "Name: ";spieler$
LOCATE 5,3:COLOR 6
PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade
LOCATE 19,3:COLOR 5
PRINT "Lebensenergie:";TAB(25);lebensenergie
COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT kleidung$
COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
COLOR 2
SLEEP:SLEEP
WHILE a$=""
a$=INKEY$
WEND
RETURN
schluss:
CLS:LOCATE 3,3:COLOR 7
PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
PRINT " dieser Entwickling betrachten: Du hast es hinter Dir,"
PRINT " niemand kann Dich mehr quaelen und demuetigen..."
PRINT:PRINT" Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
COLOR 3:PRINT:PRINT"Noch ein Spiel?"
PRINT " < F1 > Na klar, ich bin doch kein looser"
PRINT " < F2 > So ein scheiss Spiel, schnell weg"
WHILE 1
getkey x
IF x=1 THEN LOAD"TDBS",r
IF x=2 THEN SYSTEM
WEND
an:
COLOR 6
IF lebensenergie<=0 THEN schluss
IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260
LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
COLOR 5
LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
RETURN
kampf:
CLS:LOCATE 3,3:COLOR 7
PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
WHILE 1
duatt:
x=INT(RND*(20+1))
IF x<attacke THEN GOTO monstpa
IF x>attacke THEN GOTO monstatt
dupa:
y=INT(RND*(20+1))
IF y<parade THEN GOSUB an:GOTO duatt
IF y>parade THEN lebensenergie=lebensenergie-INT(RND*(6+1)+monstertrefferpunkte):GOSUB an:GOTO duatt
monstatt:
x=INT(RND*(20+1))
IF x<monsterattacke THEN GOSUB an:GOTO dupa
IF x>monsterattacke THEN GOSUB an:GOTO duatt
monstpa:
y=INT(RND*(20+1))
IF y<monsterparade THEN GOSUB an:GOTO monstatt
IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
WEND